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AA tt St HH HH A SH HH HH 
AAA tt St Se SH SS HH 
AAA st tH St HH 


EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 
EEE 


T PPPPPPPPPPPP 
T PPPPPPPPPPPP 
T PPPPPPPPPPPP 

PP PPP 


PPP 
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wow ww ww 
ww uu ww 
wu ww ww 


POC ICU VU TV e Tee Tre re eavervelververvulvervsl 
AS A 


ee oo 
a ek ro 


= 
= 
“nn nnn 
nn YNNMN 
nn mn mn 
ann nw nw 
nw mn nn 
nn nn nw 
nn mn nn 
nn nn nn 
NNN nn 
NNNMNM nn 


nn NNN 
nw MMwnnm 
nn mw nw 
nn nn own 
nn nw ann 
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Mn nn nw 
nw mn “ww 
NNN nn 
Mn “wn 
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LLLLLLLLLL 
LLLLLLLLLL 


RELATIVE TEST PROGRAM 


2 
: 16-SEP-1984 01:47: AX/VMS Macro v04-00 P 
oe ee 9 83:37:93 UETP.SRC RASTEST3 MAR: 1 vr dp 
IDENT 'v04-000' 
$BEGIN RMSTEST3,009, _RMSTEST,<RELATIVE TEST PROGRAM>, <GBL , LONG> 


-ENABL DBG 


: this program tests the relative file org 


macros: 


WO OONOU ES WN - O OONOUS— 
e@ete - 


COOQoCoooooooooo 
SoOoQoooooooooo 


oooo 
SeEeeoee 
OOOCoooooooooooooo 
SOOCCSCOCOCOOOOCOSCOOOOOOOOOOoCoOoOoOO 


ONIN BF eB BE SOLOS LL LLLL 09000909 IAIN AININY 
DONOM 


QUE WN = OC OONOAULS WN OOONOUES WMO 


a a a a ts kt tt 


SOooooooooooooooo 


oooooo 


uF ~MACRO BUFF NAM,SIZE 


-BLKB_ SIZE 
NAM'BSZ==SIZE 
-ENDM = =BUFF 


MACRO TYPE STRING, ?L 
<STRING> 


VERBOSITY L 

MOVL  #$$.TMPX, CMDORAB+RABSL_RBF 
MOVW #$$.TMPX1, CMDORAB+RABS@_RSZ 
$PUT RAB=CHDORAB,ERR=REPORT _ERROR 


-ENDM = TYPE 


-MACRO WITYPE STRING 

SWAIT CMDORAB 

TYPE <STRING> 
WITYPE 


«MACRO STORE STRING,PRE 


VE 
PSECT __SRMSNAM 
. TAPX=, 
E ; store any carriage control info 
SCII STRING? 
4 - TAPX 


RM STORE 


kK 7 
gress wsielt head Raman MCREGISH SL:ATIRE MEME 


«MACRO FNM ia 


STORE ‘ TRI 

MOV A Next FABSB_FNS+RELA IVE FAB 
MOVL TMPX, FABSL_FNA*+RELATIVE_FAB 
.ENDM 

MACRO 8 GIN TSTNAM 

STORE 

MOVL it WWAPK eEg.D SCR+4 =; addr 
MOVL ’ 3aP %1,B€6_DESCR : len 


MOVL #$$.TMPX FLD DESCR+4 : addr 


m ath 
0 “MACRO FINISH TSTNAM 
STORE <TSTNA 
000 OVL #$$.TMPX,FIN DESCR#4 =; addr 
6 0 MOVL  #$$.TMPX1,FIN_DESCR : len 
0 BSBW. so FIINPUT 
0 00 FINISH 
000 “MACRO FIELD FLDNAM 
0000 STORE <FLDNAM> 
0000 
0 
0 


SOOQCoooQoooQoQooQoQoQooQoQooooooooooo 


a kk kk kk kk kk kk kk 
PRD Be Be BS BE BB PWIA IIo 


MO ODNAUNE WO OD NOUS WN OOONOUS 
. 
m 
z 
J 
=z 


00 MOVL  #$$.TMPX1,FLB_DESCR > len 
99 BSBW  —s« FLDPUT 
000 -ENDM = FIELD 
0000 “MACRO MBPT 2L 
9000 BLBC  VERBOSITY.L 
9000 BPT 
445 L: 
909 ENDM MBPT 
0 0 
00 3 
000 


Se 
lad wsophia veal ammo CREE ALERTAE WOIMEADSAETENMer OP 


0000 1 2 -PSECT RMSTEST,GBL,LONG 
1 «ALIGN [CONG 
1 § T3START:: 
1 RELATIVE_FAB: 
1 8 SFAB fabs 2 Puls DEL yep >. - 
1 Me<TSTSDI Fil; 
170 PAneN 
17 MOpeeOrae SOP>, ~ 
17 ORG=REL.=- 
at Ae 
+ 4 — 
0 175 MRN= §6,- 
178 ALQ=0,- ; alq=0 forces extend 
8 4 FSZ=4 
05 158 RELATIVE_RAB: 
05 180 SRAB fs es ety FAB, 
05 181 UBF =REL + - 
Bee 1 ¢ USZ=RELBSZ.- 
005 1 RBF=RECBOF. o 
05 184 by a peas 
05 185 MBF=3 
050 1 6 ROP=UIF 
Bg 1 ALLOC_XAB: 
094 1 8 SXABALL Al1D=0,- 
0094 1 DEQ=4,- 
Bae 190 ALQ=4 
0B4 191 COUNTER: 
00 0084 136 -BYTE 0 
4 00B5 193 COUNT2: .BYTE 0 
00000000 0086 194 HEAD: .LONG 0 
00000000 poea 195 KEY: -LONG 0 
OOOOOOEE OO0BE 196 RFATBL: .BLKQ 6 
it 19 ALIGN LONG 
OOF 138 BUF F REL,200 
54 41 4C 45 52 20 97000 FO" pg0gnoee" o188 380 Rimes: ait RPAL RFA RELATIVE FILE WITH FILE ORG !AD !/° 
54 49 57 9 é 4C 49 46 36 45 38 49 ice 
21 20 47 52 4F 20 45 4C 49 46 48 01D 
2F 21 ss 44 4) 1E4 
0000029 O1F9 201 RFML=.-RFMS 


tt St Sts ttt st ttd4t44444¢ et 


RMSTEST3 RELATIVE TEST PROGRAM ; 16-SEP-1984 01:47:03 VAX/VMS Macro v04-00 Pa 
508 grSEE 188s bai3t ike LOST SRR ene ets en. 1 ve Og, 


OFFC 


3 


BEGIN <RELATIVE TESTS> 


3 RMTSTEST_3A:: 
: WORD = “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11> 
gi VARIABLE 


jue <TEST vite VARIABLE RECORD FORMAT> 


<REL 
MOVB PFABSC VAR, FABSB_RFM+RELATIVE_FAB 


DDD CF ee 30 BSeU -REL_TEST 


E 
£3 
1 
} 
18 
4 14 
te S18 
024 i$ :VFC 
bos 819° 
024! 0 ih PE ps WITH VFC RECORD FORMAT> 
8 74 1 FNM <RELVFC> 
8 § SFAB_ shar FAB=RELATIVE _FAB,~ 
0 FM=VF 
026? 4 ers 4; ‘need to set fsz 
04 AO 02000000 8F C8 O28F 5 BisLg Ais cae FABSL Fo P(RO) ; do create-if 
04 AO 04 CA 0297 § BICL #F ABSM” SUP PABSLF OP (RO) 3; mot supercede 
0298 SCREATE PABCRECA ATIVE ABT 
98 8 ERR=REPORT ERROR 
FDS1° 30 AC 9 BSBW ERR 
00000000 ' 8F be } 8 a : ty 10 a CREATED 3; was it created 
10 cB 0 88 § BISL2 #RAB : if opened, do updates 
FD97 CF O2BA RABEL See RELATIVE _RAB 
0140 30 02BD 4 10$: BSBW REL_TES if, 
02000000 8F CA 8 co 5 BICL2 44 ABSM 3 restore bits 
FD3B CF C6 6 FABSL MPGPSRELATIVE _FAB 
04 c8 O2C BISL2 #FABSA_SuUP 
FD36 CF 0 cB : FABSL_FOP+RELATIVE_FAB 
02cE 40 ; 
O2cE 41 sfix 
SSce 548 
O2cE 44 TYPE <TEST WITH FIXED LENGTH RECORDS> 
FD 45 FNM <RELFIX> 
FDOF CF oock 4 9 +g atte Hite pix. -FABSB_RFM+RELATIVE_FAB 
FDOD CF D4 1 48 CLRL ath XAB+RELATIVE_FAB 3; clear it for restart 
1 49 FINISH PRELATIVE TESTS> 
04 0 sf 50 RET 
052D 51 


RMSTESTS RELATIVE TEST PROGRAM ; 16-SEP-1984 01:47:0 AX/VMS 00 Page 5 
B08 orSEE 1 8Be baisi ine PORTE SRO sense ets ears 1 7 a 
D 3 REL_TEST: 
Se 
4 § sroutine to put relative thru its paces, and call the locking routine 
D 
D § $FAB_STORE FAB=RELATIVE_FAB,- 
60 LQ= ; make sure it's 0 
61 SCREATE FAB=R 
6¢ ERR=REPORT ERROR 
FCB9’ 30 44 6 BSBW 
7 88 SXABALL =f Tore XAB=ALLOC_XAB,- 
50 96 $FAB_STORE FAB=RELATIVE_FAB,- 
0350 6 XAB= . LOC_XAB 
58 ¢) SEXTEND FAB=R 
58 : ERR=REPORT _ERROR : extend 4 blks, from alq 
FC93° 30 6A 0 BSBW RR 
04 FC9B CF D1 0 68 71 CMPL FABSL_STV+RELATIVE_FAB,#4 3; check returned stv 
15 18 0372 if BGEQ T 
0374 7 FIELD <STV ( NOT = ALLOC QTY, AFTER EXTEND)> 
04 FD17 CF D1 0389 74 STVOK: CMPL ty 9 -ALQ+ALLOC_XAB,#4 3 check alq 
15 18 ba56 75 BGEQ oy of 
039 6 FIELD Q IN XAB ( A. = ALLOC QTY, AFTER EXTEND)> 
O3A5 77 ALQOK: $CLOSE SABCRELATIVE  F 
O3A5 ee ERR=REPORT _ERROR- 
FC47° 30 bas 7 BSBW ERR 
tet 0 setae tf XAB=ALLOC_XAB,- 
03C1 Hf SOPEN FAB=RELATIVE_FAB,- 
bac) 8 ERR=REPORT ERROR 
FC2B' 30 QO De 84 BSBW : 
0S FCCB CF D1 03D 85 CMPL ALLOC_XAB+XABS$L_ALQ,#5 ; alq=4 from extend + 1 since rel 
15 18 O3DA 86 BGEQ ML OOKT 
03DC 87 FIELD Q IN XAB ( NOT = ALLOC QTY, AFTER OPEN)> 
01 FC2A CF 91 O3F1 88 ALQOK1: CMPB RELATIVE FAB+F ABSB_RFM,#F ABSC_F IX 
08 13 Bare 89 BEQL REL_TEST2 : on w/ it 
ote 39 SFAB STORE #0 FAB=RELATIVE_FAB,=- : if var Sleee xab 


RMSTEST3 RELATIVE TEST PROGRAM ; 16-SEP-1984 01:47:03 VAX/VMS Macro V04-00 P 
0 Breer ies Bais ice POETS eg ere ets Oak. | Pase 8, 


4 93 REL_TEST2: 
{ $3 
4 96 Sentry point to bypass create 
4 98 ° 
4 38 SCONNECT RAB=RELATIVE_RAB,=- 
40 0 oo REPORT_ERROR 
FBEC’ 30 rH ¥ BSBW ERR 
414 : 
gee Be sdo 26 sequent te) Py puts with ‘bad’ data into file 
414 5 ;then delete those records and do puts to put right data into them 
if bg supdate the other records and then do gets to make sure it's all ok 
414 08 ' 
59. O01 DO 04614 0 MOVL #1,R9 ; 79 is record numbe 
8B FC35 CF DE 0417 $10 HOVAL RECAT TIVE RAB,RI1 seit is address of rab 
0448 12 PUT_RECORD_SEQ:: 
56 OF 00 0448 18 MOTL all of length 15 
FBCC CF 03 4 i38 i et #P ABS FIX,FABSB_ REM+RELATIVE FAB 
56 4 pO 045 1 MOVL #52,R6 3; len of fixed r is 52 
FOO Cr 5631 GE OO (ON88 19 308: MOVES #OCESP) .#°A/1/,R6, RELBUF: fill buffer. for output 
bee 18 ; put ascii ‘1's into records 
22 AB «256)~=6BO (0460 1 MOVW R6,RABSW_RSZ(R11) : give size of record 
FC4D CF 659 ~=0 ree y MOVL RO. HEAD ; Till header in case it's vfc 
0469 gi 
9424 Z seq mode is default 
i. ae 
0469 : ERR= =REPORT _ERROR 
FB85* 30 0478 8 BSBW 
59 38 0 4 Be ee pra 7 pt 3; bkt should be rec. # on output 
1 ° FIELD ae! IN N RAB (RECORD NUMBER) > 
§ BKT_OK: AOBLEQ #26,R9,PUT_RECORD_SEQ ; keep going? 
4; 
| icheck one record just to be sure 
8 MOVL #15,R9 
MOVAL KEY,RABSL_KBF (R11) 
40 MOVB an ABSC_KEY,RABS$B_RAC(R11) 
41 MOVL KEY” 
43 $GET Rabe =R11,ERR=REPORT_ERROR 
4 BSBW 
44 BSBW 
45 BICL2 FAB " nite RABSL _ROP(R11) : in case its set 
28 MOVL 
47 FIND_DEL: 
28 ; 
4 


wef 


¢ 8 
RMSTESTS RELATIVE TEST PROGRAM ; Uj ta b+ ee La ee Becre v04-00 
009 og 4 04:21:4 UETP.SRC 


SEP=19 RMSTEST3.MAR; 1 


if 0 ;do some finds and deletes by keyed access 
4C : 
ee os ae SrinD  RABSAYI 
+ 4 = 
4CD é ERR=REPORT_ERROR 
FB21" 30 Q40C § Bt ty ERR 
4DF DELETE RAB=R11,- 
4DF g ERR=REPORT_ERROR 
FBOF' 28 rth 5 BSBW ERR 
59 5 C GF 0 ADDL #5,R9 
1A 9 D1 4F4 } CMPL R9,#26 
CF 19 O4F7 BLSS FIND_DEL 


RMSTESTS RELATIVE TEST PROGRAM ; 16-SEP-1984 01:47:0 AX/VMS Macro V04-00 Pa 
608 873Eb= 1982 4:34:48 LUETP. SRCSRMS TESTS MAR: 1 - &§) 


;done with deletes, now ‘put’ into the deleted records correct data 


59 (05 


J 
oO 


MOVL #5,R9 
PUT_RECORD_KEY: 


itry to get deleted records, hoping it fails 
sthen set nxr and get the deleted records and check them 
finally put the corrected (previously deleted)records 


OOCS8 8F 00 6€E 


re. if) MOVCS #0,(SP),#0,#200,RELBUF ; clr relbuf, to make sure 
FBAF CF gf dO 


4F 4 
us i 
ako 869 
4F °8 
GF § 
4FC 0 
4FC 71 
4FC i 
4FC 7 
4FC 74 
4FC 75 
4FC 8 
4FC 7 
_ 
0506 79 MOVL RO, KEY i gets by hey 
0908 0 $GET RAB=R11 : hope it fails 
00000000 ' 8F 30 } beig 1 Ha RO sense Ie ; record not found? 
Fe 4 FIELD <RETURNED ERROR CODE> 
eS 0 05 : 4 MOVL R 
race’ 30 05 5 BSBW = REPORT_ERR 
FACS’ 0 0538 8 BSBW ERR 
00800000 8F C8 0538 ERR_OK: BISL #RABSM_NXR,- 3 get non-existant record 
FB10 CF 0541 88 RABSL_ROP+RELATIVE_RAB 
beet 8 $GET RAB= - 3; this should work 
544 390 ERR=REPORT_ERROR 
FAAA' ; 8232 91 BSBW 
O11F 0 238 38 BSBW CHK_BAD_DATA 3; check it out 
00800000 8F CA 055 9 BICL #RABSM_AXR,- ; clear bit 
FAF2 CF O55 94 RABSL_ROP+RELATIVE_RAB 
bee 30 26¢ 95 BSBW sg TUr ; fills buffer, rsz,head 
FBSO CF 5 dO 222 38 eave Hd 3; keyed access 
56A 38 ERR=REPORT_ERROR 
oN 3 SP GREY hag 
A 
FF75 31 584 408 BRW PUT_RECORD_KEY 
587 404 10$: 
5 4 ? 5 
¢ reg > tall done with that 
aay ake 
59 01 DO 0587 410 MOVL #1,R9 
BA dle 
: r ‘i$ :do updates on all other records, by keyed access 
A 415° 
A 218 UPDATE _RECORD: 
ose so BOR HE EN BPs 
+e 1 ti TSTL = : is it 5,10,15,20,25 


wouw 


ROO OOWIOAwo— 


PAOAASAPAOOOOMMIUIMUINGU 
WWIII | | —DCOOTFOOOWWWA,r>y 


ooooo oO ODOOCWKWOOVOOOOOO0O 
S3ss. OOOCOOOCCOoO 


AMM MAMMDOOODO NNT 


AAA E & & 


Oooo 


PAAAAAA AAAS SSS SSS. 


Foy oe oe oP oP ot ot at at at at at at at at MMMM UMMaeeMeueeueemete eee 


SO 


WVUMVIOOS DW Cocococecoce ce CU Ce NE EH 


NNN NIAAA AA AA AAA MAMA II BS BB BBB BB WINN N AIA PORIPNUNUNUNOND 
DAE AN OOD NA UNE WN OS OD NANI WIN HO OD NAN EWN 0 OD NAME WO OD NOUL WHO 


> 


—E 8 
srashietucs hommaele MCSE QLERTSOE WOLTER ASS 


BNEQ 208 
AOBLEQ #26,R9,UPDATE_RECORD ; if so, skip it 
BRW NO_ MORE : all done 
208 MOVL R 
SFIND RAB=R11,- 
ERR=REPORT_ERROR 
BSBW CER 
ie 4 SETUP ; set up for put 
UPDATE RAB=R11,- 
ERR=REPORT_ERROR 


BSBW 
AOBLEQ #26,R9,UPDATE_RECORD 
NO_MORE: 
MOVB  #RABSC_SEQ,RABSB_RAC+RELATIVE_RAB 
TYPE <VERIFY CONTENTS OF FILE> 
SREWIND RAB=R11,- ; can now do gets 
ERR=REPORT_ERROR 
BSBW ERR 


BSBW _DO_SOME_GETS 
SDISCONNECT RAB=R11,- 
ERR=REPORT_E ROR 


BSBW 
SCONNECT RAB=R11,- 

ERR=REPORT_ERROR 
BSBW 
BSBW DO_SOME_GETS 
SDISCONNECT RAB=R11,- 

ERR=REPORT_ERROR 
BSBW RR 
SCLOSE FAB=RELATIVE FAB,- 

ERR=REPORT_ERROR 
BSBW CER 

; tell locking test which file 

MOVB $FABSB_FNS+RELATIVE_FAB, - 

FABSB-FNS+LOCK _F 
MOVL § FABSLFNA+RELATIVE_FAB,- 


“FN 
FABSL_FNA+LOCK_FAB 


BSBW sa RMTSTEST_5SA 
RSB 


; do locking tests 


isubroutine to check ‘bad’ data ( 1st pass of puts) 
ir1l is pointer to relative_ra 
sroutine checks rsz and contents of record, now in buffer 


CHK_BAD_DATA: 
MOVL 


#15,R6 : len of non-fixed records 
CMPB Oss @FABSC_FIX,- 
RELATIVE_FAB+FABSB_RFM 
BNEQ 1 : if fix len is 52 
MOVL #52,R6 
10$:  CMPW RO, RABSW_RSZ(R11) ; check rsz 
BEGL RS? OK 
FIELD <RSZ> 


RSZ_OK: 


20 


20 


RAS TESTS RELATIVE TEST PROGRAM 


6€ 00 31 28 BB 38 ee 2 org 
05 eBE 81 


CMPCS 


ee 
RE 


SSEp19be Oaiatia8 f 
@RABSL_RBF (R11) ,#*A/1/,40, (SP 


K 
coRp> 


AX/VMS Macro V04-00 
UETP.SRCJRMSTEST3.MAR;1 


) 


re 


Sz 


RELATIVE TEST PROGRAM 


OOM NN MMMMMOOVOIVOOOOW 
OMS VHUMONE *WOLV*OOL TNH 


SIA AAA AAAAAAAO 


"SSEb=198¢ 04:34:88 


RFATBL,R4 
COUNT R 
eR 
RELATIVE_RAB,R11 
#RABSC SEQ, RABSB_RAC(R11) 
GET RECORD. SEQ 
#RA $C_REAVRABSB_RAC (R11) 
REATB RG 

RECOR ORD_RFA 
gf RABSE KEY “RABSB_ RAC(R11) 
GET RECTOR 


KEY 
hte SEQ; RAB$B_RAC (R11) 
#13 


AX/VMS Macro V04-00 Page i} 
UETP.SRCJRMSTEST3.MAR; 1 (10) 


; r4 is index to rfatbl 

; record number 

; Ist pass-r7 is # of rec. 
; pointer to rab 

; do all sequential gets 


; do some gets by rfa 


; do some gets by key 


pass-r 


end some seg yes os 
4=8,* ; starting i fn the middle 


32 


H 8 
ss Pate NO torent MRE LATA WOIMEAAENMas HY ld 


; subroutines to do gets and checks 


e 


LD <RECORD> 


rt Ms 
7 
ti 
7 CHECK_REC: 
we 
707. «512: r9 is the record numbe 
4 1g : as before rl is the addr of the rab 
7 15° 
F913 CF 95 7} f 1 ce #FABSC_VFC,FABSB_RFM*+RELATIVE_FAB 
2c 8B 39 of ? 13 100$: CMPL R97; @RABSL_RHB(R11) 3 compare header 
ae 71 BEQL NO D 

71 0 FIELD <HEADER OF A VFC RECORD> 
7 4 1 NO_HEADER: 

1A 32 f 4 ; 4 cot °° #26 ; is it last record? 

56 14 06 4 3 povt § 6,R6 ; length is 26 

a 4 07 § 10$ CLRL Ri 3 Quadword Givige 
58 3 59 IA 78 7 EDIV #26,R9,R2,R6 : = r9 mod 26, rec. size 
55 56 00000040 a § 73A 8 208 ADDL3 #*A/A/=1,26,R5 is char. 
F8D8 CF } 7) Pts 3 ence Got RS” Hye °Fhase. REM+RELATIVE FAB 
56 3 8 re 1 one as MOVL #527R6 z mes for fixed is 26 
22 AB 36 a} a 5 ah Hoty R6,RABSW_RSZ(R11) 3; check rsz 
75 5 FIELD <RSZ FIELD IN RAB> 
4 § OK_RSZ: 
6E 00 55 28 8B 3$ 3 4 7 108: re? BE SB AOE FOF (811) 85 80.197) 
0 oF 3 RSB ; return 

771 40 
771 41 
786 42 


oO 
uw 
oo 


RAsTests 


i 


A 
8 *$0008040 er 
F87A 4 


FOSE CF 4 865606«=655_ (OE 0 


RELATIVE TEST PROGRAM ; 


a > Sen Si Sine et 
ee ee | 


AX/VMS Macro V04-00 
UETP.SRCJRMSTEST3S.MAR; 1 


Page 1 RMS 
oe id 00% 


"SSEp=198e 04:31:88 
SETUP: 


rguyine to do setup for ‘rout of correct data 
ir s record fuses 


, 
4 
4 
d 
| output - oe = rebut is fiuteg i n with correct char 
: - head is filled in, and rsz is also 
3 
3 
5 2 
ei 
63 
4 
é5 
e9 


; len of last rec. is 26 
6 : is rec. # mod 26 
: is cs: F to fill buffer 


A bee atees _FAB 


S 
bed 
o 
ee 
» 
ad 
See Ssaave 2 


WMO >» ONMO0O 
NOW SF FPOO*rO oH 

> 

@ 

o 

. 


f fixed rec. is 52 
#0, isp), RS,R6 RELBUF elbu i 
RS. RABSH_R R§2(R11) 


——n 
°o 


oader. in case vfc 


18 
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GET_RECORD_SEQ: 


Ooow 
OOO 
ee 


soaan 


routine to sequentially get and check records 


n” 
& 
aT 


mova RABSW_RFACR11),(R4)+ : Ist pass, save them 
SUBL3 #1,R4,R2 
MOVE = R9, (RO) 


é 
7aC) O57 
78 7 $GET R11 
00000000'8F 50 p oes is CMPL R4 #RMS$_EOF 
F 7¢C A: BNEQ MORE 
57 FBE3 cr 91 O7¢ 7 CMPB = COUNT2,R7 
1 12 070 p BNEQ §BADNR 
05 07D RSB 
7D : BADNR 
SA 58 7D MOVL  R11,R10 
F824" 109 4 BsBW EOF PUT 
70D MORE 
09 50 €8 O7DD 5 BLBS RO,10$ 
Sa SB 7e0 8 MOVL  R14,R10 
FBIA' 7E BSBW © REPORT_ERR 
F817" 7e6 0 BSBW = ERR 
57 F8CB CF i 7E 91 108 CMPB SOUNT2,R7 
02 1 7E 3¢ BLEQ 0$ 
E4 11° O7F 9 BRB BADNR 
F8BE CF 96 O7F 94 208: INCB COUNTER 
F CF 96 «(O7F 95 INCB COUNT 
59 «OF cr 9A O7FA %6 MOVZBL COUNTER,R9 
8 AB 39 p i ; CPL R9,RABSL_BKT(R11) 
05 539 ae FIELD <BKT FIELD IN RAB> 
FEEA 30 O81A 601 BSBW CHECK REC 
A 4 1D O06 CLRL R1 3; quad word divide 
EDIV g oR oR oR 
52 50 59 05 iF 6 5,R9,RO,R2 
01 i D 4 604 CMPL =sR2,#1 
03 13 0827 605 BEQL SAV_RFA 
FF9O) 31 9 606 a ae BRW GET-RECORD_SEQ : continue 
ey Pee 
2 save record numbers ° Py . e on ist pass 
¢ ati d numbers 1,6,11,16,21,26 on 1 
: ei : check record numbers 16.21.26 on ond pass 
C } ° 
2A 57 9 C 14 BLBC R7,SAV 3 which pees? 
64 10 a8 06 ; F 615 CMPC3 #6,RABSW_RFA(R11),(R4) : 2nd, check them 
1D 4 618 BEQL RFA_OK 
6 61 FIELD <RFA> 
1 MBPT 
RFA_OK 
54 0 £0 : #8,R4 
a # ; on to next recor 
FF6 : GEf_ RECORD SEQ d 
D 4 
1 5 


Donn & 


3; also store record number 


RELATIVE TEST PROGRAM ; 


FFSS) = 31 


10 AB BG 


so PAS 


QOOOOOEE'SF 54 i 
1F 

Dd 

FE7A 

d8 

5 


0 


30 F826 CF OD 
FRIF CF 01 8 
0010 
FR17 CF OIA B8 
0008 
F8OF CF OD 0 
0000 1 
F740° 30 


a ae 


HOOCOCOCOCOCOO BAS FOWL OM VN 


AEM BPEL LEE 


be ee Ry SS SYS RRR AS Me 
MEW OOD NOAUE WN O OD NAVE WN CO OONAUE WOON 


COOQOCOCOOCOOCOOOOCOCOOOOOOCOO: 
QOoowr>r>r>r 


Oucommmrmn:» 
AAO 


BRW GET_RECORD_SEQ 
GET_RECORD_RFA: 


get records by rfa 


CMPL R4 ,#RFATBL+48 


N 
mova R43+ RABSW_RFA(R11) 
$GET § RAB=R11,ERR=REPORT_ERROR 


MOVB RABSW_RFA+7(R11) RO 


BSBW  CHECK-REC 

BRB GET_RECORD_RFA 
END_OF _RFA: 

RSB 


GET_RECORD_KEY: 


iget records by key 


MOVAL EFY -PORSL_Kee (at) 
M #1, KEY 


OVL 
BSBW = GE TCHK 
MOVL #26, KEY 
BSBW «GET 
MOVL #13, KEY 
BRW GETCHK 
GETCHK 
$GET  RAB=R11,- | 
ERR=REPORT_ERROR 
BSBW  =s ERR 
MOVL _KEY,R9 
BRW CHECK_REC 
END 
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; more rfa entries 
load rab w/ rfa 


record wuaber as stored 


; get Ist record 
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eit 5h 


SYSSEXT 
SY 


SY SSREWIND 
Fissuceate 


UPDATE T RECORD 
V SITY 


Sooooooooceoao 


RELATIVE TEST PROGRAM ; 


00000188 R 
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Seecests 
RATER EE 
RARREREEE 
grereene 
Reeeeeee 
TRAARREE 
SReeKeee 
RReeeeKe 
RRERREEE 
RERRREEE 
Reeeeree 
Reeeeeee 
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PSECT No. Attributes 

-») 00 ¢ OO.) NOPIC USR 
) 1 1.) NOPIC USR 
a § ( ¢°3 NOPIC USR 
) ( -) NOPIC USR 
4.) 04 ¢ 46.) NOPIC  USR 


eS 19be ba:3 


CON ABS 
COK REL 
CON ABS 
CON REL 
CON REL 


es tr 


prere RASTE 


pos ths NOEXE NORD 
SHR EXE RD 
OSHR EXE RD 
H EXE RD 
EXE RD 


04-00 
ST3.MAR;1 rem 


NOWRT NOVEC BYTE 


WRT NOVEC BYTE 


( 


17 
15) 


nN 8 
Het Macro Run Statistics eee et ree 4 ~$Fb=} 382 33428 Lott 
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! Performance indicators ! 


tow rome ss ecemawaerecnon non + 


Phase Page faults CPU Time ssobees Time 
Initialization :00:00.09 

Command processing 138 i ‘0; 0 oie 
Pass 1 299 sie g i 
syste}, table sort 13 ° 10). 1 
Symbol table output 1 : 13 08:48 
Psect synopsis output § : : 8 0: 700.04 
Cross-reference output 00:00: 2. 0 0: 9:88:99 
Assembler run totals 611 00:00:15.61 0:00: 9 


ihe working set_ Limit was 1500 pages. 

4514 bytes_(107 pages) of virtual memory were used to buffer the intermediate cod 

Eg re were 30 pages of symbol table space ot yecerae to hold 441 non-local ye 20 local symbols. 
source Lines were read in Pass 1, producing 46 object records in Pass 

64 pages of virtual memory were used to define 49 macros. 


wwe wmressee nce es ee we eee coe eset 


Macro Library name Macros defined 
“$522 S0UAE: SYS.OBJJLIB.MLB;1 0 
~$255$DUA SYSLIBISTARLET .ALB;2 35 

TOTALS (all Libraries) 35 


870 GETS were required to define 35 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSTEST3/OBJ=OBJ$:RMSTEST3 MSRC$:RMSTEST3/UPDATE=(ENHS:RMSTEST3) +EXECMLS$/LIB 
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SRC ORenerestacg MAR; 1 ° ALS 


RMS 
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